home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 13
/
AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso
/
rexx
/
snd.m2i
< prev
next >
Wrap
Text File
|
1997-11-18
|
340b
|
24 lines
/* Change SoundTask flag, and save menu if needed */
OPTIONS RESULTS
ADDRESS "M2IPort.Rexx"
REQUEST "Sound Task must be on?"
IF RC=0 THEN DO
SOUND OFF
END
ELSE DO
SOUND ON
END
IF RC~=5 THEN DO
REQUEST "Save Menu?"
IF RC=1 THEN DO
SAVEMENU
END
END
ELSE DO
ERROR "The state doesn't change"
END
EXIT